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FOREWORD 


This  As-built  Product  Specification,  divided  into  four  volumes,  covers 
work  performed  \inder  Air  Force  Contract  F33615-85-C-5122,  Geometric  Modeling 
Applications  Interface  Program  (GMAP),  covering  the  period  1  August  1985  to 
31  March  1989.  The  document  addresses  the  GMAP/PDDI  System  Components 
developed  or  enhanced  under  this  contract  which  is  sponsored  by  the  Computer 
Integrated  Manufacturing  Branch,  Materials  Laboratory,  Air  Force  Systems 
Command,  Wright  Air  Force  Base,  Ohio  45433-6533.  The  GMAP  Project  Manager 
for  the  Air  Force  is  Mr.  Charles  Gilman. 

The  primary  contractor  is  Pratt  &  Whitney,  an  operating  unit  of  United 
Technologies  Corporation.  Mr.  Richard  Lopatka  is  managing  the  GMAP  project 
at  Pratt  &  Whitney.  Ms.  Linda  Phillips  is  the  Program  Integrator.  Mr.  John 
Hamill  is  the  Deputy  Program  Manager. 

McDonnell  Aircraft  Company  was  the  subcontractor  responsible  for  the  PDDI 
System  Component  work.  Mr.  Jerry  Weiss  is  the  GMAP  Program  Manager  at 
McDonnell  Aircraft  and  Mr.  Herb  Ryan  is  the  Deputy  Program  Manager. 

Voliime  IV  of  this  Product  Specification  provides  the  System  Translator 
routine  listings  and  Quality  Assurance  provisions  for  the  GMAP  system 
components. 


NOTE:  The  number  and  date  in  the  upper  right  comer  of  each  page  in  this 
document  indicate  that  it  has  been  prepared  in  accordance  to  the 
ICAM  CM  Life  Cycle  Documentation  requirements  for  a  Configuration 
Item  (Cl). 
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3.10.4 

3.10.4.: 

Poutjne 

CHECK 

CRHEAD 

GETID 

GETKIND 

GETTOK 

GETVAL 


GTKEY 

LTRIM 

NEWDD 

POST 

PRE 

PRHEAD 

PUTID 

PUTKEY 

RDENT 

RESOLVE 

RTRIH 

WRTENT 


System  Translator 

lnd£Z 

Fynctjop 

-  Checks  the  processed  flag  on  an  entity 

-  Creates  the  header  section  of  the  STEP  exchange  format  file 

-  Retrieves  the  entity  identifier  associated  with  an  entity  key 

-  Determines  the  entity  kind  number  from  the  entity  name 

-  Will  parse  the  exchange  format  file  based  on  the  value  of 
tokentype 

-  Extracts  a  character  string  from  input  file  buffer,  converts 
it  to  it's  internal  format,  stores  it  directly  to  the 
entity's  ADB 

-  Retrieves  the  entity  key  associated  with  an  entity  identifier 

-  Takes  a  varying  character  string  and  removes  any  leading 
blanks 

-  Reads  in  data  dictionary  descriptions  of  entities  based  upon 
their  kind  number 

-  Initializes  the  translator  environment  and  directs  the 
translation  process 

-  Extracts  entities  from  working  form  model  and  places  them 
into  a  STEP  exchange  format  file 

-  Reads  the  header  section  of  the  STEP  exchange  format  file 

-  Saves  the  entity  identifier  associated  with  an  entity  key 

-  Stores  the  entity  key  associated  with  an  entity  identifier 

-  Reads  the  exchange  format  entity  into  the  working  form  model 

-  Checks  for  unresolved  forward  references  and  prints 
diagnostic  information  about  them 

-  Takes  a  varying  character  string  and  removes  any  leading 
blanks 

-  Writes  the  mas  entity  out  to  the  STEP  exchange  format  file 
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3.10.4.2  Listings 
MODULE  CHECK; 

(* - *) 

(*  *) 

(*  Author  :  Phil  Dorr  Created:  Ol-MAR-1988  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  :  Check  *) 

(*  *) 

(*  Function:  *) 

(*  This  routine  will  check  the  processed  flag  on  an  entity  *) 

(*  and  if  it  is  not  set  it  will  call  WRTENT  to  process  the  *) 

(*  entity.  This  routine  is  only  called  from  an  'XEQ'  routine.  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by;  *) 

(*  PRE  (via  MAKXEQ)  *) 

(*  WRTENT  (via  MAECXQ)  *) 

(*  *) 

(*  Calls:  *) 

(*  WRTENT  *) 

(*  *) 

(* - *) 

(* - Restrictions - *) 

(*  *) 

(*  No  known  restrictions  (4  unknown  restrictions)  *) 

(*  *) 

(• - 

(* - Commons - *) 

(*  *) 

(*  No  commons  are  used.  *} 

(*  *) 

(* - *) 

(* - Processing  Description - *) 

(*  *) 

(*  Call  MAS  routine  MAESVL  to  determine  if  the  entities  pro-  *} 

(*  cessed  flag  Is  set.  *) 

(*  If  the  flag  is  not  set  then  call  WRTENT  to  process  entity.  *) 

(*  •) 

(* -  Data  Structures/Major  Variables  - *) 

(*  *) 
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(*  FLAG  The  value  of  the  processed  flag  of  the  current  *) 

(*  entity.  *) 

(*  *) 

(* - *) 

(* - Change  Control - *) 

(*  *) 

(*  Changed  by:  Date:  *) 

(*  *) 

(*  *) 

(* - *) 
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MODULE  CRHEAD; 

(* - *) 

(*  *) 

(*  Author  :  J.Altemueller  Created:  3/1/88  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  ;  CRHEAD  *) 

(*  *) 

(*  Function;  *) 

(*  This  routine  is  responsible  for  creating  the  header  section  *) 

(*  of  the  STEP  exchange  format  file  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by;  *) 

(*  PRE  *) 

(*  *) 

(*  Calls:  *) 

(*  No  other  routines  *) 

(*  *) 

(* - *) 

(* - Restrictions - *) 

(*  None  *) 

(* - *) 

(* - Files - *) 

(*  This  routine  accesses  the  file  "PASFIL"  for  read  purposes  only  *) 

(*  This  routine  accesses  the  file  "EFFILE"  for  write  purposes  only  *) 

(* - *) 

(* - Commons - *) 

(*  None  *) 

(* - *) 

(* - Processing  Description - *) 

(*  •  This  routine  will  read  in  the  file  identification  data  from  *) 

(*  PASFIL,  reformat  it  in  the  form  required  by  STEP,  and  then  *) 

(*  write  it  to  the  the  exchange  format  file  (EFFILE)  *) 

(*  *) 

(* - *) 

(* -  Data  Structures/Hajor  Variables  - *) 

(*  None  *) 

(* - ^ - *) 
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(* - Change  Control - *) 

(*  *) 

(*  Changed  by:  Date:  *) 

(* 

(*  *) 

(* - *) 
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MODULE  GETID; 

(* - *) 

(*  *) 

(*  Author  ;  P.D.Dorr  Created:  3/1/88  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  :  GETID  *) 

(*  *) 

(*  Function:  *) 

(*  Retrieve  the  entity  Identifier  associated  with  an  entity  key  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by:  *) 

(*  WRTENT  *) 

(*  *) 

(*  Calls:  *) 

(*  None  *) 

(*  *) 

(* - *) 

(* - Restrictions - *) 

(*  None  *) 

(*  *) 

(* - *) 

(* - Files - *) 

(*  *) 

(*  This  routine  accesses  no  external  files  *) 

(*  *) 

(*  *) 

(* - *) 

(* - Commons - *) 

(*  See  the  PRECON  include  file  documentation  *) 

(*  *) 

(* - *) 

(* -  Processing  Description  - *) 

(*  This  routine  will  retrieve  the  entity  Identifier  from  the  *) 

(*  IDENT  field  of  the  entity's  attribute  data  block  *) 

(*  *) 

(* - *) 
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(<t - Data  Structures/Major  Variables - *) 

(*  *) 

(*  input  variable  MASKEY  ;  entkey  of  the  mas  entity  of  interest  *) 

(*  input  variable  ADB  ;  attribute  data  block  of  the  mas  entity  *) 

(*  output  variable  CHARPTR  :  entity  identifier  of  the  STEP  entity  *) 

(*  output  variable  RC  ;  return  code  0  =>  success  *) 

(*  *) 

(* - ^ - 

(* - Change  Control - r - *) 

(*  *) 

(*  Changed  by;  Date;  *) 

(*  *) 

(*  *) 

(* - 
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MODULE  GETKIND; 

(* - - ») 

(*  *) 

(*  Author  ;  P.Dorr  Created:  4/25/88  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  :  getkind  *) 

(*  *) 

(*  Function:  *) 

(*  This  routine  will  determine  the  entity  kind  number  from  the  *) 

(*  entity  name.  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by:  *) 

(*  RDENT  *) 

(*  *) 

(*  Calls:  *) 

(*  None  *) 

(*  *) 

(* - *) 

(* —  Restrictions  - *) 

(*  None  *) 

(* - *) 

(* - Files - *) 

(*  This  routine  accesses  no  files.  *) 

(* - *) 

(* - Commons - *) 

(*  See  the  POSTCOM  Include  file  documentation.  *) 

(*  See  the  V5INCLD  Include  file  documentation.  *) 

(* - *) 

(* - Processing  Description - *) 

(*  This  routine  will  access  the  data  dictionary  index  area  *) 

(*  searching  for  a  match  to  the  entity  name  passed  into  this  *) 

(*  routine.  When  a  match  is  found,  the  data  dictionary  will  also  *) 

(*  contain  the  corresponding  entity  kind  nunber.  That  kind  number  *) 

(*  is  then  passed  back  from  this  routine.  *) 

(*  *) 
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(* -  Data  Structures/Major  Variables  - *) 

(*  *) 

(*  input  NAME  :  varying  string  *) 

(*  output  KIND  ;  integer  *) 

(*  output  RC  :  integer  *) 

(*  *) 

(* - *) 

(* - Change  Control - *) 

(*  *) 

(*  Changed  by;  Date:  *) 

(*  *) 

(*  *) 

(* - 
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MODULE  GETTOK; 

(* - *) 

(*  *) 

(*  Author  :  Phil  Dorr  Created:  28-MAR-88  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  :  GETTOK  *) 

(*  *) 

(*  Function:  *) 

(*  This  routine  will  parse  the  exchange  format  file  based  on  *) 

(*  the  value  of  tokentype.  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by;  *) 

(*  GTCON  *) 

(*  GTVAL  *) 

(*  PRHEAD  *) 

(*  RDENT  *) 

(*  *) 

(*  Calls:  *) 

(*  READNEXT  (internal  routine)  -  reads  next  record  *) 

(*  SCAN  (internal  routine)  -  finds  next  delimeter  *) 

(*  *) 

(*  *) 

(* - *) 

(* -  Restrictions  - *) 

(*  *) 

(*  This  routine  does  not  handle  double  apostrophes  embedded  in  *) 

(*  strings  when  the  first  apostrophe  is  at  the  end  of  one  record  *) 

(*  and  the  other  is  at  the  start  of  another  record.  *) 

(*  *) 

(* - *) 

(* - Arguments - *) 

(*  .  *) 

(*  TOKENTYPE  (input)  type  «  TOKEN_CLASS  *) 

(*  One  of:  ENTITYID_TYP,  KEYWORD.TYP,  OPENLIST.TYP,  *) 

(*  CLOSELIST_TYP,  SEMIC0L0N_TYP,  STRING_TYP,  or  *) 

(*  ENTITYREF.TYP.  *) 

(*  This  is  the  type  of  token  that  is  expected  next.  *) 

(*  *) 

(*  KEYWORD  (output)  type  »  ENT_NAME  *) 

(*  This  argument  is  only  used  for  tokens  of  type  KEYWORD_TYP.  *) 
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(*  *) 

(*  ENTITYID  (output)  type  =  INTEGER  *) 

(*  This  arguement  is  only  used  for  tokens  of  type  ENTITYID_TYP.*) 

(*  *) 

(*  RC  (output)  type  =  INTEGER  *) 

(*  A  return  code  <0  is  an  informational  message,  a  return  *) 

(*  code  =0  is  a  mission  accomplished,  and  a  return  code  >0  *) 

(*  is  an  error.  See  below  for  meaning  of  return  codes.  *) 

(*  *) 

(* - *) 

(*  *) 

(*  *) 

(* - *) 

(* - Processing  Description - *) 

(*  *) 

(*  *) 

(* - *) 

(* -  Return  Codes  - *) 

(*  *) 

(*  <01  gives  delimeter  type  (negated)  that  followed  *) 

(*  01  required  delimeter  found  *) 

(*  IE  required  delimeter  not  found  *) 

(*  2  E  invalid  format  for  a  value  or  file  syntax  error  *) 

(*  3  E  Invalid  calling  args  (programmer  error)  *) 

(*  AS  file  read  error  (maybe  early  end-of-file)  *) 

(*  51  possible  embedded  entity  *) 

(*  61  defaulted  entity  *) 

(*  7  E  data  skipped  *) 

(*  81  end  of  list  *) 

(*  *) 

(*  *) 

(*  Isinformational,  E  =  Error,  S=  Severe  error  *) 

(*  ' - Return  code  value  *) 

(*  *) 

(*  A  return  code  of  4  is  most  likely  terminal,  the  others  may  *) 

(*  be  recovered.  *) 

(*  *) 

(* - *) 

(* - Delimeter  Type - *) 

(*  *) 

(*  1  =  COMMA,  *) 

(*  2  =  OPEN.PARENTHESIS  *) 
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(*  3  =  CLOSE_PARENTHESIS  *) 

(*  4  =  SEMICOLON  *) 

(*  5  =  EQUAL_SIGN  *) 

(*  6  *  AT.SIGN  *) 

(*  7  =  POUND_SIGN  *) 

(*  8  =  EXCLAMATION_POINT  *) 

(*  9  =  APOSTROPHE  *) 

(*  *) 

(* - Data  Structures/Major  Variables - *) 

(*  *) 

(*  B17FFER_P0S  the  current  position  into  the  exchange  format  *) 

(*  file  record  buffer.  *) 

(*  BUILDSTR  in  the  event  a  lexical  element  spans  several  records  *) 

(*  BUILDSTR  will  contain  the  entire  element.  See  *) 

(*  comments  on  USE_STR.  *) 

(*  DELIMS  a  string  that  contains  all  the  delimeters  that  the  *) 

(*  SCAN  recognizes.  The  delimeter  number  is  the  *) 

(*  position  in  the  DELIMS  string  of  the  delimeter.  *) 

(*  DELIM_P0S  the  position  of  the  next  delimiter.  DELIM_P0S  is  *) 
(*  always  >=  BUFFER_POS.  *) 

(*  DYTPE  the  delimiter  number  of  the  delimiter  that  SCAN  *) 

(*  has  most  recently  found.  (1  <=  DTYPE  <=  8  ).  *) 

(*  USE_STR  if  this  boolean  is  TRUE  then  the  current  lexical  *) 

(*  element  spans  2  or  more  records.  If  it  is  false  then  *) 

(*  DELIM_P0S  is  valid  and  should  used  to  get  at  element  *) 

(*  in  record  buffer.  *) 

(*  *) 

(* -  Change  Control  - *) 

(*  *) 

(*  Changed  by:  Date;  *) 

(*  *) 

(* - *) 
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MODULE  GETVAL; 

(* - *) 

(*  *) 

(*  Author  ;  P.  Dorr  Created:  lO-MAY-1988  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  :  GETVAL  *) 

(*  *) 

(*  Function:  *) 

(*  This  routine  will  extract  a  character  string  from  the  input  *) 

(*  file  buffer  and  convert  it  to  it's  internal  format  and  store  *) 

(*  it  directly  to  the  entity's  ADB.  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by:  *) 

(*  MAKEENT  (in  module  RDENT)  via  MAEXEQ  *) 

(*  *) 

(*  Calls:  *) 

(*  READNEXT  (internal  routine)  -  reads  next  record  *) 

(*  SCAN  (internal  routine)  -  finds  next  delimeter  *) 

<»  *) 

(* - *) 

(* - Restrictions - *) 

(*  *) 

(*  This  routine  does  not  detect  the  difference  between  integers  *) 

(*  and  real  numbers  when  reading  into  a  real  number  in  an  ADB.  *) 

(*  *) 

(*  This  routine  will  also  accept  a  syntax  for  a  real  number  that  *) 

(*  has  no  digits  to  the  right  of  the  decimal  point.  *) 

(*  *) 

(*  This  routine  does  not  handle  double  apostrophes  embedded  in  *) 

(*  strings  when  the  first  apostrophe  is  at  the  end  of  one  record  *) 

(*  and  the  other  is  at  the  start  of  another  record.  *) 

(*  *) 

(*  *) 

(• - *) 

(* - Commons - *) 

(•  *) 

(*  *) 

(* - *) 

(* - Processing  Description - *) 
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(* 

*) 

(* 

scan  to  the  next  delimeter,  call  readnext  If  nessesary 

*) 

(* 

readv 

into  the  ADB  (based  on  the  type  of  number  of  course) 

*) 

(* 

*) 

(*r - 

...... 

._*) 

(* — 

Return  Codes  - 

._*) 

(* 

*) 

(* 

<  0 

I  gives  delimeter  type  (negated)  that  followed 

*) 

(* 

0 

I  required  delimeter  found 

*) 

(* 

1 

E  required  delimeter  not  found 

*) 

(* 

2 

E  invalid  format  for  a  value  or  file  syntax  error 

*) 

(* 

3 

E  Invalid  calling  args  (programmer  error) 

*) 

(* 

4 

S  file  read  error  (maybe  early  end-of-file) 

*) 

(* 

5 

I  possible  embedded  entity 

*) 

(* 

6 

I  defaulted  entity 

*) 

(* 

7 

E  data  skipped 

*) 

(* 

8 

I  end  of  list 

*) 

(* 

*) 

(* 

*) 

(* 

t 

I=Informatlonal,  E  =  Error,  S=  Severe  error 

*) 

(* 

* 

-  Return  code  value 

*) 

(* 

*) 

<* 

A  return  code  of  4  is  most  likely  terminal,  the  others  may 

*) 

(* 

he  recovered. 

*) 

(* 

*) 

r* _ 

(* — 

Delimeter  Type  - 

._*) 

<* 

*) 

(* 

1 

s  COnNA, 

•) 

(* 

2 

=  OPEN_PARENTHESIS 

*) 

(* 

3 

«  CLOSE_PARENTHESIS 

*) 

(* 

4 

-  SEMICOLON 

*) 

(* 

5 

=  EQUAL.SIGN 

*) 

(* 

6 

-  AT_SIGN 

*) 

(* 

7 

=  POUND.SIGN 

*) 

(* 

8 

=  EXCLAMATI0N_P0INT 

*) 

(* 

9 

=  APOSTROPHE 

*) 

(* 

*) 

(* — 

- — — — 

— 

-*) 

(* — 

Data  Structures/Major  Variables  - 

_*) 

(* 

*) 

(* 

BUFFER_P0S  the  current  position  into  the  exchange  format 

*) 

(* 

file  record  buffer. 

*) 

(* 

BUILDSTR  in  the  event  a  lexical  element  spans  several  records 

*) 

(• 

BUILDSTR  will  contain  the  entire  element.  See 

*) 
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(*  comments  on  USE_STR.  *) 

(*  DELIMS  a  string  that  contains  all  the  delimeters  that  the  *) 

(*  SCAN  recognizes.  The  delimeter  number  is  the  *) 

(*  position  in  the  DELIMS  string  of  the  delimeter.  *) 

(*  DELIM_P0S  the  position  of  the  next  delimiter.  DELIM_P0S  is  *) 
(*  always  >=  BUFFER_POS.  *) 

(*  DYTPE  the  delimiter  number  of  the  delimiter  that  SCAN  *) 

(*  has  most  recently  found.  (1  <=  DTYPE  <=  8  ).  *) 

(*  USE_STR  if  this  boolean  is  TRUE  then  the  current  lexical  *) 

(*  element  spans  2  or  more  records.  If  it  is  false  then  *) 

(*  DELIN_P0S  is  valid  and  should  used  to  get  at  element  *) 

(*  in  record  buffer.  *) 

(*  *) 

(* - *) 

(* - Change  Control - *) 

(*  *) 

(*  Changed  by:  Date:  *) 

(*  *) 

(* - *) 
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MODULE  GTKEY; 

(* - *) 

(*  *) 

(*  Author  :  P.Dorr  Created:  4/25/88  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  :  GTKEY  *) 

(*  *) 

(*  Function:  *) 

(*  This  routine  will  retrieve  the  entity  key  associated  with  an  *) 

(*  entity  identifier.  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by:  *) 

(*  RDENT  *) 

(*  *) 

(*  Calls:  *) 

(*  maecm  *) 

(»  *) 

(* - *) 

(* - Restrictions - *) 

(*  None  *) 

(*  *) 

(* - *) 

(* - Files - *) 

(*  This  routine  uses  no  external  files  *} 

(*  •) 

(* - *) 

(* - Commons - *) 

(*  See  the  POSTCOM  Include  file  doc\imentation  *) 

(*  See  the  VXINCLD  include  file  documentation  *) 

(*  *) 

(* - *) 

(* - Processing  Description - *) 

(•  *) 

(*  If  the  entity  identifier  and  maskey  are  both  valid  entries  *) 

(*  then  the  maskey  associated  with  the  entity  identifier  is  *) 

(*  retrieved  from  a  static  table  (KEYTABLE).  If  the  entity  *) 

(*  identifier  is  a  forward  reference,  then  a  forward  reference  •) 

(*  entity  is  created  and  its  maskey  is  returned.  *) 

(*  *) 
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(* - *) 

(* - Data  Structures/Major  Variables - *) 

(*  Input  ENTITY.ID  ;  Integer  *) 

(*  Output  MASKEY  :  Entkey  *) 

(*  Output  RC  :  Integer  *) 

(*  *) 

(* - - - *) 

(* - Change  Control - *) 

(*  *) 

(*  Changed  by:  Date:  *) 

(*  *) 

(*  *) 

(* - *) 
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MODULE  LTRIM; 

(* - - *) 

(*  *) 

(*  Author  :  Phil  Dorr  Created;  02-MAR-1988  *) 

(*  Version  ;  1.0  Revised:  *) 

(*  *) 

(*  Routine  ;  LTRIM  *) 

(*  *) 

(*  Function:  *) 

(*  This  routine  will  take  a  varying  character  string  and  *) 

(*  remove  any  leading  blanks.  *) 

(*  *) 

(*  Enviroiunent:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by;  *) 

(*  WRTENT  *) 

(*  *) 

(*  Calls:  *) 

(*  (none)  *) 

(*  *) 

(* - *) 

(* - Restrictions - *) 

(*  *) 

(*  VAX  Pascal  can  only  handle  strings  with  lengths  less  than  *) 

(*  65,535  characters.  *) 

(*  *) 

(* - *) 

(* - Commons - *) 

(*  *) 

(*  No  commons  used.  *) 

(*  *) 

(* - *) 

(* -  Processing  Description  - *) 

(*  *) 

(*  Scan  through  the  string  looking  for  the  first  noblank  cha"  *) 

(*  Assign  the  substring  of  the  input  string,  starting  at  the  *) 

(*  first  nonblank  character  and  running  to  the  end  of  the  *) 

(*  string,  to  the  output  string.  *) 

(*  *) 

(* - *) 

(* - Data  Structures/Major  Variables - *) 

(*  *) 

(*  LEN  The  length  of  the  STR  when  LTRIM  is  called.  *) 
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(*  POS  The  position  in  STR  where  the  first  noblanlc  character  *) 

(*  occurs.  *) 

(*  STR  The  string  to  be  trimmed.  This  is  passed  to  LTRIM  by  *) 

(»  reference.  *) 

(*  *) 

(* - *) 

(* -  Change  Control  - *) 

(*  *) 

(*  Changed  by;  Date:  *) 

(*  *) 

(*  *) 

(* - *) 
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MODULE  NEWDD; 

(* - *) 

(*  *) 

(*  Author  :  P.D.Dorr  Created;  3/1/88  *) 

(*  Version  :  1.0  Revised:  *) 

<*  *) 

(*  Routine  :  NEWDD  *) 

<*  *) 

(*  Function:  *) 

(*  The  function  of  this  routine  is  to  read  in  data  dictionary  *) 

(*  descriptions  of  entities  based  upon  their  kind  number.  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by:  *) 

(*  WRTENT  *) 

(*  RDENT  *) 

(*  Calls;  *) 

(*  None  *) 

(*  *) 

(* - *) 

(* - Restrictions - *) 

(*  This  routine  will  store  up  to  TABLE_SIZE  niomber  of  *) 

(*  distinct  data  dictionary  entries.  TABLE_SIZE  is  a  predefined  *) 

(*  constant  that  can  be  found  in  the  PRECOM  include  file  *) 

(*  *) 

(* - *) 

(* - Files - *) 

(*  *) 

(*  This  routine  will  access  the  logical  file  DDFILE  for  reading  *) 

(*  *) 

(* - *) 

(* - Commons - *) 

(*  None  *) 

(*  *) 

(* - *) 

(* - Processing  Description - *) 

(*  *) 

(*  Using  information  from  the  data  dictionary  index  file,  this  *) 

(*  routine  will  read  in  a  data  dictionary  entry  from  the  DDFILE  *) 

(*  that  corresponds  to  a  given  entity  kind  number,  the  data  that  *) 

(*  is  pertinent  to  the  translator  is  converted  to  integer  and  *) 
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(*  stored  into  a  common  queue.  If  the  queue  is  full  when  a  request  *) 


(*  is  made,  then  the  oldest  entry  on  the  queue  is  replaced.  *) 

(*  If  an  entry  of  the  correct  entity  kind  already  exists  in  the  *) 

(*  queue  then  a  new  data  dictionary  entry  is  not  read  from  DDFILE  *) 

(*  *) 

(* - *) 

(* - Data  Structures/Major  Variables - ^ - *) 

(*  *) 

(*  See  the  PRECOM  include  file  *) 

(*  *) 

(*  *) 

(* - *) 

(* - Change  Control - *) 

(*  *) 

(*  Changed  by;  Date;  *) 

(*  *) 

(*  *) 

(* - *) 
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MODULE  POST; 

(* - *) 

(*  *) 

(*  Author  :  J.Altemueller  Created:  3/22/88  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  :  POST  *) 

(*  *) 

(*  Function:  *) 

(*  This  routine  is  responsible  for  initializing  the  translator  *) 

(*  environment  and  directing  the  translation  process  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by:  *) 

(*  *) 

<*  *) 

(*  Calls:  *) 

(*  malnlt,makxeq,maecm  *) 

(*  rdindx  *) 

(*  prhead  *) 

(*  rdent  *) 

(* - *) 

(* - Restrictions - *) 

(*  Rone  *) 

<*  *) 

(* - *) 

(* - Files - *) 

(*  *) 

(*  This  routine  will  allocate  the  following  files  *) 

(*  POSTEF  =  the  exchange  format  file  *) 

(*  DDIHX  =  data  dictionary  index  file  *) 

(*  DDFILE  =  data  dictionary  file  *) 

(*  ERRHS6  3  error  messages  file  *) 

<*  *) 

(* - *) 

(*  *) 

(*  *) 

(* - *) 
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(* -  Processing  Description  - *) 

(*  *) 

(*  open  files  *) 

(*  initialize  common  variables  *) 

(*  Setup  MAS  enviroment  *) 

(*  Read  in  the  data  dictionary  index  file  *) 

(*  process  HEADER  section  of  exchange  format  file  *) 

(*  process  DATA  section  of  exchange  format  file  *) 

(*  close  files  *) 

(*  *) 

(* - *) 

(* -  Data  Structures/Major  Variables  - *) 

(*  *) 

(*  See  the  POSTCOM  include  file  documentation  *) 

(*  See  the  VXINCLD  include  file  documentation  *) 

(*  *) 

(* - *) 

(* -  Change  Control  - *) 

(*  *) 

(*  Changed  by:  Date:  *) 

(*  *) 

(*  *) 

(* - *) 
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PROGRAM  PRE(  EFFILE,  DDFILE,  DDINX,  PASFIL,  DATA); 


(*— 

— 

- *) 

<* 

*) 

(* 

Author  :  P.D.Dorr 

Created: 

3/1/88 

*) 

(» 

Version  :  1.0 

Revised: 

*) 

(* 

*) 

(* 

Routine  :  PRE 

*) 

(* 

*) 

<* 

Function: 

*) 

(* 

The  function  of  this  routine  is 

to  extract 

entities 

*) 

(* 

from  the  working  form  model  and  place 

them  into  a 

STEP 

*) 

(* 

exchange  format  file 

*) 

(* 

*) 

(* 

Environment: 

*) 

(* 

VAX  Pascal  V3.3  and  VMS  4.4 

*) 

(* 

*) 

(* 

Called  by: 

*) 

(* 

*) 

(* 

*) 

(* 

Calls: 

*) 

(* 

RDIHX 

*) 

<* 

maeknd 

*) 

(• 

maectk 

*) 

(* 

makxeq 

*) 

<* 

FILRTV 

*) 

(* 

CRHEAD 

*) 

(• 

*) 

(*— 

— 

— 

- *) 

(* -  Restrictions  - *) 

(*  Rone  *) 

(*  *) 

(* - *) 

(*  This  routine  will  open  and  close  the  following  files:  *) 

(*  DDFILE... READ  ACCESS  *) 

(*  DDIRX....READ  ACCESS  *) 

(*  EFFILE... WRITE  ACCESS  *) 

(* 

(* - *) 

(* - Commons - *) 

(*  See  the  PRECON  include  file  documentation  *) 

(* - *) 
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(* -  Processing  Description  - *) 

(*  *) 

(*  open  files  *) 

(*  Read  index  into  internal  structure  *) 

(*  initialize  common  variables  *) 

(*  retrieve  the  model  from  PID  *) 

(*  begin  the  step  file  *) 

(*  create  the  header  section  *) 

(*  begin  the  data  section  *) 

(*  obtain  the  number  of  entity  kinds  in  the  model  *) 

(*  process  all  the  entity  kinds  in  the  model  *) 

(*  (except  array  entities  kind  =  1100  )  *) 

(*  end  the  data  section  and  the  step  file  *) 

(*  close  files  *) 

(*  *) 

(* - *) 

(* -  Data  Structures/Major  Variables  - *) 

(*  See  the  PRECOM  include  file  documentation  *) 

(*  *) 

(* - *) 

(* -  Change  Control  - *) 

(*  *) 

(*  Changed  by;  Date:  *) 

(*  *) 

(*  *) 

(* - *) 
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MODULE  PRHEAD; 

(* - *) 

(*  *) 

(*  Author  :  J.Altemueller  Created:  3/1/88  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  :  PRHEAD  *) 

(*  *) 

(*  Function:  *) 

(*  This  routine  is  responsible  for  reading  the  header  Section  *) 

(*  of  the  STEP  exchange  format  file  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by:  *) 

(*  POST  *) 

(*  *) 

(*  Calls:  *) 

(*  GETTOK  *) 

(*  *) 

(* - *) 

(* -  Restrictions  - *) 

(*  Hone  *) 

(* - *) 

(* - Files - *) 

(*  This  routine  accesses  the  file  ’’POSTEF"  for  read  purposes  only  *) 

(* - *) 

(• - Commons - *) 

(*  Hone  *) 

(* - *) 

(* - Processing  Description - *) 

(*  This  routine  will  read  in  the  HEADER  section  from  the  STEP  *) 

(*  exchange  format  file  (POSTEF)  *) 

(*  *) 

(* - *) 

(* -  Data  Structures/Major  Variables  - *) 

(*  Hone  *) 
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(* -  Change  Control  - 

(* 

(*  Changed  by:  Date: 

(* 

(* - 

%include  'V5INCLD’ 
type  ERTBLOCK  =  integer; 


[global] 

procedure  PRHEAD(  var  ire  :  integer); 


procedure  GETT0K(  var  TOKENTYPE 
var  KEYWORD 
var  ENTITYID 
var  RC 

external; 


token_classes; 
workstr; 
integer; 
integer  ); 


label  9999; 
var  DUMMY 

KEYWORD 

TOKENTYP 

RC 


integer; 

workstr; 

token_classes; 

integer; 


begin 


ire  :=  0; 


.*) 

*) 

*) 

*) 

.*) 


(*******************************************************************) 
(*  read  in  the  "STEP;"  keyword  *) 

^ ****** A** A** A******* A* A A*************** A** A******* A************ A*** ^ 

tokentyp  ;=  KEYWORD_TYP; 
gettok(  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 
if(  RC  <>  -4  )or(  KEYWORD  <>  ’STEP’  )then  begin 
(*  -4  indicated  a  *) 

IRC  :=  1; 
goto  9999 
end; 


(A******************************************************************) 

(*  read  in  the  "HEADER;"  keyword  *) 

(*******************************************************************) 

gettok(  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 
if(  RC  <>  -4  )or(  KEYWORD  <>  'HEADER*  )then  begin 
(*  -4  indicated  a  ";"  *) 

IRC  :s  1; 
goto  9999 
end; 
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(*******************************************************************) 

(*  read  in  the  *'file_identification"  entity  *) 

^ ******** A ******** A******* A***** A A****************** A**** A** A *******^ 

(*  file_identification  keyword  *) 

gettok(  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 

if(  RC  <>  -2  )or(  KEYWORD  <>  •FILE_IDENTIFICATION'  )then  begin 
(*  -2  indicated  a  ”(”  *) 

IRC  ;=  1; 
goto  9999 
end; 

(*  file_name  *) 

tokentyp  :=  STRING_TYP; 
gettok(  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 
if  RC  <>  -1  then  begin 
(*  -1  indicated  a  *) 

IRC  :=  1; 
goto  9999 
end; 

(*  date  *) 

gettok(  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 
if  RC  <>  -1  then  begin 
(*  -1  indicated  a  *) 

IRC  :=  1; 
goto  9999 
end; 

(*  author  *) 

gettokC  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 
if  RC  <>  -1  then  begin 
(*  -1  indicated  a  ”,'*  *) 

IRC  1; 
goto  9999 
end; 

(*  org  *) 

gettok(  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 
if  RC  <>  -1  then  begin 
(*  -1  indicated  a  *) 

IRC  :=  1; 
goto  9999 
end; 
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(*  step  version  *) 

gettokC  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 
if  RC  <>  -1  then  begin 
(*  -1  indicated  a  *) 

IRC  :=  1; 
goto  9999 
end; 

(*  preprocessor  version  *) 

gettokC  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 
if  RC  <>  -1  then  begin 
(*  -1  indicated  a  *) 

IRC  ;=  1; 
goto  9999 
end; 

(*  originating  system  *) 

gettokC  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 
if  RC  <>  -3  then  begin 
C*  -3  indicated  a  ")"  *) 

IRC  :=  1; 
goto  9999 
end; 

C*  closing  semi-colon  *) 

tokentyp  ;=  SEMICOLON.TYP; 

gettokC  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 


^ ********** A*********** A* A*** A****************** A**************** A 

C*  read  in  the  file  description  *) 

^*******************************************************************^ 

C*  file_description  keyword  *) 
tokentyp  :=  KEYWORD_TYP; 
gettokC  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 

ifC  RC  <>  -2  )orC  KEYWORD  <>  'FILE_DESCRIPTION'  )then  begin 
C*  -2  indicated  a  ”C"  *) 

IRC  :=  1; 
goto  9999 
end; 

C*  file_descriptlon  *) 

tokentyp  ;»  8tring_typ; 

gettokC  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 
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(*  closing  semi-colon  *) 

tokentyp  ;=  SEMIC0L0N_TYP; 

gettok(  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 

(*********************************************************************** ) 
(*  read  in  the  implementation  level  *) 

(A**********************************************************************  ^ 

(*  implementation  level  keyword  *) 
tokentyp  ;=  KEYWORD_TYP; 
gettokC  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 

if(  RC  <>  -2  )or(  KEYWORD  <>  'FILE_DESCRIPTION’  )then  begin 
(*  -2  indicated  a  ”(”  *) 

IRC  ;=  1; 
goto  9999 
end; 

(*  implementation  level  *) 
tokentyp  ;=  STRING_TYP; 
gettokC  TOKENTYP,  lOIYWORD,  DUMMY,  RC  ); 

(*  closing  semi-colon  *) 

tokentyp  :=  SEMICOLON.TYP; 

gettokC  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 

(****************«****«*************************************************) 

C*  skip  remainder  of  header  section  looking  for  "endsec;"  *) 

(***********************************************************************) 

9999: 

tokentyp  :=  KEYWORD_SEARCH; 
keyword  :=  'ENDSEC; 

gettokC  TOKENTYP,  KEYWORD,  DUMMY,  RC  ); 
if  RC  <>  -4  then  begin 
C*  -4  indicated  a  *) 

IRC  :=  1 
end; 


end; 

end. 
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MODULE  PUTID; 

(* - *) 

(*  *) 

(*  Author  :  P.D.Dorr  Created:  3/3/88  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  :  PUTID  *) 

(*  *) 

(*  Function:  *) 

(*  The  function  of  this  routine  is  to  save  the  entity  *) 

(*  identifier  associated  with  an  entity  key  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by:  *) 

(*  WRTENT  *) 

(*  *) 

(*  Calls:  *) 

(*  *) 

(*  *) 

(* - *) 

(* -  Restrictions  - *) 

(*  None  *) 

(*  *) 

(* - *) 

(* - Files - *) 

(*  This  routine  accesses  no  external  files  *) 

(*  *) 

(* - *) 

(* - Commons - *) 

(*  See  the  PRECOH  Include  file  documentation  *) 

(*  *) 

(* - *) 

(* - Processing  Description - *) 

(*  This  routine  will  store  the  address  of  the  entity  *) 

(*  identifier  string  into  the  IDENT  field  of  the  entity  identifier  *) 

(*  *) 

(* - *) 


3-1009 


Cl  PS560240032U 
April  1990 


(* -  Data  Structures/Major  Variables  - 

(* 

(*  input  variable  ADB  ;  attribute  data  block 
(*  input  variable  CHARID  ;  entity  identifier 
(*  output  variable  RC  :  return  code 


(* Change  Control 

<* 

(*  Changed  by; 

(* 


-*) 

*) 

*) 

*) 


Date: 
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MODULE  PUTKEY; 

(* - - *) 

(*  *) 

(*  Author  :  P.Dorr  Created:  4/25/88  *) 

<*  Version  :  1.0  Revised;  *) 

(*  *) 

(*  Routine  ;  PUTKEY  *) 

(*  *) 

(*  Fimctlon:  *) 

(*  This  routine  will  store  the  entity  key  associated  with  an  *) 

(*  entity  Identifier  for  later  reference.  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by:  *) 

(*  RDENT  *) 

(*  *) 

(*  Calls:  *) 

(*  maeu,malno,malgtk,malfnd,malrpl,maed,mald  *) 

(*  *) 

(* - *) 

(* -  Restrictions  - *) 

(*  Hone  *) 

(*  *) 

(* - 

(* - Files - *) 

(*  This  routine  uses  no  external  files  *) 

(*  *) 

(* - *) 

(* - Commons - *) 

(*  See  the  POSTCOM  Include  file  documentation  *) 

(*  See  the  VXINCLO  Include  file  documentation  *) 

(*  *) 

(*, - *) 

(* - Processing  Description - *) 

(*  *) 

(*  If  the  entity  identifier  and  maskey  are  both  valid  entries  *) 

(*  then  the  maskey  associated  with  the  entity  identifier  is  stored  *) 

(*  into  a  static  table  (KEYTABLE).  If  the  entity  identifier  is  *) 

(*  associated  with  a  forward  reference,  then  the  new  maskey  is  *) 

(*  replaced  in  all  necessary  constituent  lists.  *) 

(*  *) 
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(* -  Data  Structures/Major  Variables  - *) 

(*  Input  ENTITY_ID  ;  Integer  *) 
(*  Input  MASKEY  ;  Entkey  *) 
(*  Output  RC  ;  Integer  *) 
(*  *) 
(* - *) 


(* Change  Control 

(* 

(*  Changed  by; 

(* 

(* 

(* - 


- - - *) 

*) 

Date:  *) 

*) 

*) 

- *) 
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MODULE  RDENT; 

(* - *) 

(*  *) 

(*  Author  ;  P.D.Dorr  Created;  4.20/88  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  :  RDENT  *) 

(*  *) 

(*  Fimction;  *) 

(*  The  function  of  this  routine  is  to  read  the  exchange  format  *) 

(*  entity  into  the  working  form  model  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

<*  *) 

(*  Called  by;  *) 

(*  POST  *) 

<*  *) 

(*  Calls:  *) 

(*  GETKIND.GETTOK  *) 

(*  NEWDD  *) 

(*  GETKEY.PUTKEY  *) 

(*  maecm,maexeq,malatc,malrpl  *) 

(*  *) 

(* - *) 

<* -  Restrictions  - ») 

(*  None  *) 

(»  *) 

(* - 

(* - Files - *) 

(*  This  routine  accesses  EFFILE  *) 

(* - *) 

(* - Commons - *) 

(*  See  the  POSTCOM  include  file  documentation  *) 

(*  See  the  V5INCLD  include  file  dociunentation  *) 

(* - *) 

(* - Processing  Description - *) 

(*  As  each  entity  is  read,  its  entity  keyword  is  converted  *) 

(*  into  the  appropriate  MAS  entity  kind  value,  and  a  data  dictionary*) 
(*  is  obtained.  Then  each  attribute  is  read  in,  and  placed  into  the*) 

(*  MAS  entity  according  to  the  data  dictionary  description  for  the  *) 

(*  attribute.  *) 

(*  *) 
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(* - *) 

(* - Data  Structures/Major  Variables - *) 

(*  Output  IRC  ;  integer  0  ->  success,  <>  0  ->  failure  *) 

(* - *) 

(* -  Change  Control  - *) 

(*  *) 

(*  Changed  by:  Date:  *) 

(*  *) 

(*  *) 

(* - *) 
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MODULE  RESOLVE; 

(* - *) 

(*  *) 

(*  Author  :  Phil  Dorr  Created:  Ol-MAR-1988  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  :  Resolve  *) 

(*  *) 

(*  Function:  *) 

(*  This  routine  will  check  for  unresolved  forward  references  *) 

(*  and  print  diagnostic  information  about  them.  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by:  *) 

(*  POST  (via  MAKXEQ)  *) 

(*  *) 

(*  Calls:  *) 

(*  LTRIM,  GETNAME,  FINDKEY,  MALGTK,  MAEGKN,  MALD  *) 

(*  maeu,malno  *) 

(* - *) 

(* -  Restrictions  - *) 

(* 

None  *) 

(* - *) 

(* - Commons - *) 

(*  See  the  POSTCOM  include  file  documentation  *) 

(*  See  the  V5INCLD  include  file  documentation  *) 

/7Reply  received  on  MSEPD  from  user  ZAID  at  _MSEPD$LTA734:  16:26:46 

You  have  15  min.  to  logoff  before  MSEPD  goes  down. Please 

(* - *) 

(* - Processing  Description - *) 

(*  The  user  is  notified  that  unresolved  forward  references  exist  *) 

(*  in  the  exchange  format  file.  Then  the  unresolved  reference  *} 

(*  entities  are  processed.  During  this  processing,  the  true  entity  *) 

(*  keys  are  located,  and  replaced  into  the  appropriate  constituent  *) 

(*  lists.  *) 

(*  *) 

(* - *) 


3-1015 


Cl  PS560240032U 
April  1990 


(* -  Data  Structures/Major  Variables  - *) 

(*  Input  MASKEY  :  entkey  *) 
(*  Input  ADB  :  entblock  *) 
(*  Input  WORTHLESS  ;  blkdata  *) 
(*  Output  IRC  :  Integer  *) 
(* - *) 


(* Change  Control 

(* 

(*  Changed  by: 

(* 


-*) 

*) 

*) 

*) 


Date: 
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MODULE  RTRIM; 

(* - *) 

(*  *) 

(*  Author  ;  Phil  Dorr  Created:  02-MAR-1988  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  :  RTRIM  *) 

(*  *) 

(*  Function:  *) 

(*  This  routine  will  take  a  varying  character  string  and  *) 

(*  remove  any  leading  blanks.  *) 

(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by:  *) 

(*  WRTENT  *) 

(*  *) 

(*  Calls:  *) 

(*  (none)  *) 

(*  *) 

(* - *) 

(* -  Restrictions  - *) 

(*  *) 

(*  VAX  Pascal  can  only  handle  strings  with  lengths  less  than  *) 

(*  65,535  characters.  *) 

(*  *) 

(* - *) 

(* - Commons - *) 

(*  *) 

(*  No  commons  used.  *) 

(»  *) 

(* - *) 

(* -  Processing  Description  - *) 

(*  .  *) 

(*  Scan  through  the  string  looking  for  the  last  noblank  char  *) 

(*  Assign  the  substring  of  the  input  string,  starting  at  the  *) 

(*  first  character  and  rinming  to  the  last  nonblank  char  to  *) 

(*  the  output  string.  *) 

(*  *) 

(* - *) 

(* - Data  Structures/Major  Variables - *) 

(*  *) 
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(*  POS  The  position  in  STR  where  the  first  noblank  character  *) 

(*  occurs.  *) 

(*  STR  The  string  to  be  trimmed.  This  is  passed  to  RTRIM  by  *) 

(*  reference.  *) 

(*  *) 

(* - *) 

(* - Change  Control - *) 

(*  *) 

(*  Changed  by;  Date:  *) 

(*  *) 

(*  *) 

(* - *) 
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MODULE  WRTENT; 

(* - - *) 

(*  *) 

(*  Author  :  P.D.Dorr  Created:  3/3/88  *) 

(*  Version  :  1.0  Revised:  *) 

(*  *) 

(*  Routine  :  WRTENT  *) 

(*  *) 

(*  Function:  *) 

(*  The  function  of  this  routine  is  to  write  the  mas  entity  *) 

(*  (passed  in  to  this  routine)  out  to  the  STEP  exchange  format  file  *) 
(*  *) 

(*  Environment:  *) 

(*  VAX  Pascal  V3.3  and  VMS  4.4  *) 

(*  *) 

(*  Called  by:  *) 

(*  CHECK  *) 

(*  *) 

(*  Calls:  *) 

(*  CHECK  *) 

<*  LTRIM  *) 

(*  GETDD  *) 

(*  GETID.PUTID  *) 

(*  WRITEPACKED  *) 

(*  malno,maecxq,maexeq,malgtk,maegkn,maeswt  *) 

(*  *) 

(* - *) 

(* -  Restrictions  - *) 

(*  None  *) 

(*  *) 

(* - *) 

(* - Files - *) 

(*  This  routine  accesses  no  external  files  *) 

(* - *) 

(* - Commons - *) 

(*  See  the  PRECOM  include  file  documentation  *) 

(*  *) 

(* - *) 

(* - Processing  Description - *) 

(*  Check  to  see  if  the  entity's  constituents  have  been  *) 

(*  processed  yet,  if  not  then  process  them  via  an  indirectly  *) 

(*  recursive  call  to  WRTENT.  If  the  constituents  have  already  been  *) 
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(*  processed  then  simply  write  out  each  attribute  of  the  entity  to  *) 
(*  the  STEP  file  according  to  its  datatype.  *) 

(*  *) 

(* - *) 

(* -  Data  Structures/Major  Variables  - *) 

(*  *) 

(*  input  variable  MASKEY  :  entkey  *) 

(*  input  variable  ADB  :  attribute  data  block  *) 

(*  input  variable  DUMMY  ;  dummy  argument  required  by  MAEXEQ  *) 

(*  output  variable  IRC  :  return  code  *) 

(*  *) 

(* - *) 

(* - Change  Control - *) 

(*  *) 

(*  Changed  by;  Date:  *) 

(*  *) 

(*  *) 

(* - *) 
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SECTION  4 
QUALITY  ASSURANCE 

4.1  Quality  Assurance  (OAl  Requirements 

The  purpose  of  QA  was  to  assure  that  6MAP  software  conforms  to  quality 
requirements  and  was  developed  in  a  cost  effective  manner  consistent  with 
good  business  practices.  The  QA  fimction  was  established  prior  to  contract 
award  to  interface  with  GMAP  personnel  during  all  phases  of  the  project. 
Emphasis  was  placed  on  the  detection  and  corrections  of  deviations  from 
standards  and  on  the  detection  and  prevention  of  deficiencies  in  software. 

Specific  QA  requirements  are  stated  in  the  GMAP  Software  Quality 
Assurance  (SQA)  Plan  which  was  developed  by  Pratt  &  Whitney  and  is  included 
in  the  GMAP  Technical  Operating  Report  (TOR)  (FR  19199-5).  This  plan  was 
developed  using  Mil-S-52779A  as  a  guide  and  was  based  on  prior  experience 
with  Air  Force  projects.  It  states  specific  SQA  requirements,  including 
procedural  requirements,  in  the  following  areas: 

o  Software  Development  Management 

0  Configuration  Management 

0  Reviews  and  Audits 

0  Corrective  Action 

o  Library  Control 

o  Software  Tools,  Techniques,  and  Methodologies 

o  Documentation 

o  Testing. 

In  addition  to  these  requirements,  the  SQA  Plan  established  authority, 
organizational  relationships,  and  responsibilities  within  the  GMAP  team.  It 
required  each  subcontractor  delivering  GMAP  software  to  submit  its  own  SQA 
Plan  adhering  to  the  requirements  of  the  overall  GMAP  plan. 

These  plans  provided  for  specific  guidelines  and  procedures  to  be  used 
in  all  phases  of  software  development,  including  the  development  of  the 
System  Test  Plan  (STP).  The  approach  described  above  assured  the 
maintainability,  suitability,  and  general  quality  of  software  developed 
under  the  GMAP  contract. 
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